0 REM    ***** CONVOY *****
2 POKE788,49:TQ=TI:POKE53371,0
5 PRINT"[147]":DV=PEEK(186):IFDV<8THENDV=8
10 POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14):PRINTCHR$(8)
15 GOSUB60000:Q$=CHR$(34)
20 V=10:H=10:GOSUB4145:PRINT"[201]NITIAL [198]ILE [195]HECK."
25 DF$="TOOLBOX117 C000":GOSUB4205
30 DF$="HARBOUR":GOSUB4205
35 DF$="BRIDGE":GOSUB4205
40 DF$="GETWORD 1000":GOSUB4205
45 DF$="F.HARBOUR":GOSUB4205
50 DF$="F.BRIDGE":GOSUB4205
55 DF$="NAVIGATION DATA":GOSUB4205
60 DF$="T.CONVOY":GOSUB4205
65 FORX=1TO3:DF$="H.CONVOY"+STR$(X):GOSUB4205:NEXT
70 IFTI<TQ+200THEN70
80 GOTO4405
4140 REM    ***** SET CURSOR *****
4145 POKE211,H:POKE214,V:SYS58732:RETURN
4150 REM    ***** LINE DELETE *****
4155 POKE781,V:GOSUB59903
4160 RETURN
4200 REM    ***** FILE CHECK *****
4205 OPEN15,DV,15,"R:"+DF$+"="+DF$:INPUT#15,ER,A$,A,A:CLOSE15
4210 IFER=63THENRETURN
4215 PRINT"[147]":BD=0:BK=0:CH=1:GOSUB5205:H=12:V=12:GOSUB4145:PRINT"[204][207][193][196] [197][210][210][207][210]!"
4220 H=8:V=14:GOSUB4145:PRINT"[198]ILE "+Q$+DF$+Q$+" MISSING.":PRINT"":END
4400 REM    ***** PROGRAM FILE LOAD *****
4405 DF$="HARBOUR":BD=0:BK=0:CH=0:GOSUB5205:PRINT"[147]"
4410 V=23:H=8:GOSUB4145:PRINT"[197][206][212][197][210][201][206][199][160][200][197][193][196][209][213][193][210][212][197][210][211].[144]"
4415 PRINT"[144]LOAD"Q$DF$Q$","DV
4420 PRINT"RUN":POKE44,24:POKE6144,0
4425 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
5160 RETURN
5200 REM    ***** COLOUR SET *****
5205 POKE53280,BD:POKE53281,BK:POKE646,CH:RETURN
10000 D=PEEK(186):N$="0:B.ATL CONVOY":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60005 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60010 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60015 Z$(0)="[193][212][204][193][206][212][201][195]  [195][207][206][214][207][217] [214]ERSION 2"
60020 Z$(2)="BY [195]HARLES [195]ALVERT
60022 Z$(4)[178]"(C) 1999 BY MID$ & ASC (null)UBLISHING, RIGHT$NC.
60025 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60030 Z$(7)[178]"OR IN THE PUBLIC DOMAIN.
60045 Z$(9)="1-318-868-8727":POKE214,12:PRINT
60050 FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN